program def labdtch
*! NJC 1.0.0 15 June 2000 
	version 6.0 
	syntax varlist 
	tokenize `varlist' 

	while "`1'" != "" { 
		capture confirm numeric variable `1' 
		if _rc == 0 { label val `1' } 
		mac shift 
	}
end 	
